home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS228.dsk / KER384.INIT.txt < prev    next >
Text File  |  2012-02-16  |  2KB  |  86 lines
  1. REM 1ST LINE OF KER384.INIT--DO NOT REMOVE THESE REM LINES
  2. CLOSE
  3. DEL 120,800
  4. 160D$=CHR$(4):G$=CHR$(7):GOSUB710:GOSUB720
  5. 170?:INPUT"SWAP BS & DEL KEYS ? (Y/N)";R$
  6. 180GOSUB660:IFWGOTO170
  7. 190IFRTHENGOSUB730:?"SET SWAP ON":GOSUB720
  8. 200?:INPUT"FLOW CONTROL ? (Y/N)";R$
  9. 210GOSUB660:IFWGOTO200
  10. 220IFRTHENGOSUB730:?"SET FLOW XON":GOSUB720
  11. 230A$(1)="VT52":A$(2)="VT100"
  12. 240A$(3)="NONE":A$(4)="MONITOR"
  13. 250?:?:?"TYPE OF TERMINAL EMULATION"
  14. 260?"1 ";A$(1)
  15. 270?"2 ";A$(2)
  16. 280?"3 ";A$(3)
  17. 290?"4 ";A$(4):?
  18. 300GOSUB690:GOSUB730:?"SET TERMINAL ";A$(S):GOSUB720
  19. 340A$(4)="TEXT":A$(3)="INTEGER"
  20. 341A$(1)="APPLESOFT":A$(2)="BINARY"
  21. 342?:?:?"TYPE OF FILE TRANSFER"
  22. 343?"1 ";A$(1)
  23. 344?"2 ";A$(2)
  24. 345?"3 ";A$(3)
  25. 346?"4 ";A$(4):?
  26. 348GOSUB690:GOSUB730:?"SET FILE-TYPE ";A$(S):GOSUB720
  27. 360IFPEEK(64435)=6THENR=1:GOSUB750:GOTO400:REMIIE/C
  28. 370?:INPUT"KEYBOARD LOWER CASE ? (Y/N)";R$
  29. 376GOSUB660:IFWGOTO370
  30. 380GOSUB750
  31. 390?:INPUT"DISPLAY LOWER CASE ? (Y/N)";R$
  32. 395GOSUB660:IFWGOTO390
  33. 400IFRTHENGOSUB730:?"SET DISPLAY 2E-40":GOSUB720
  34. 410?:INPUT"80 COLUMN DISPLAY ? (Y/N)";R$
  35. 415GOSUB660:IFWGOTO410
  36. 420IFR=0GOTO460
  37. 430D3=3:?:INPUT"IN SLOT 3 ? (Y/N)";R$
  38. 435GOSUB660:IFWGOTO430
  39. 440IFRGOTO455
  40. 450GOSUB690:D3=S
  41. 455GOSUB730:?"SET DISPLAY 80-COL ";D3:GOSUB720
  42. 460?:INPUT"MODEM IN SLOT 2? (Y/N)";R$:GOSUB660:IFWGOTO460
  43. 470IFRTHENM=2:GOTO485
  44. 480GOSUB690:M=S
  45. 485GOSUB730:?"SET SLOT ";M:GOSUB720
  46. 486?:INPUT"PRINTER IN SLOT 1? (Y/N)";R$:GOSUB660:IFWGOTO486
  47. 487IFRTHENM=1:GOTO489
  48. 488GOSUB690:M=S
  49. 489GOSUB730:?"SET PRINTER SLOT ";M:GOSUB720
  50. 490A$(1)="300":A$(2)="600"
  51. 491A$(3)="1200":A$(4)="2400"
  52. 492A$(5)="4800":A$(6)="9600"
  53. 493A$(7)="19200"
  54. 494?:?" IS MODEM BAUD:":?"1 ";A$(1)
  55. 495?"2 ";A$(2)
  56. 496?"3 ";A$(3)
  57. 497?"4 ";A$(4)
  58. 498?"5 ";A$(5)
  59. 499?"6 ";A$(6)
  60. 500?"7 ";A$(7):GOSUB690
  61. 510GOSUB730:?"SET BAUD ";A$(S):GOSUB720
  62. 520?:INPUT"CHANGE SOMETHING ? (Y/N)";R$
  63. 525GOSUB660:IFWGOTO520
  64. 530IFRGOTO160
  65. 540POKE814,0
  66. 600POKE216,0
  67. 610?"REBOOT TO START KERMIT."
  68. 640?"START WITH 'BRUN KERMIT384'"
  69. 645?"THEN TYPE 'HELP'"
  70. 651END
  71. 660IFR$="Y"ORR$="Y"THENR=1:W=0:RETURN
  72. 670IFR$="N"ORR$="N"THENR=0:W=0:RETURN
  73. 680W=1:RETURN
  74. 690?:INPUT"WHICH ? (1,2,3 ... )";S:IFS<1ORS>10GOTO690
  75. 700RETURN
  76. 710?D$;"OPEN KERMIT.INIT":?D$;"DELETE KERMIT.INIT"
  77. 713?D$;"OPEN KERMIT.INIT":?D$;"WRITE KERMIT.INIT"
  78. 716RETURN
  79. 720?D$;"CLOSE KERMIT.INIT":RETURN
  80. 730?D$;"APPEND KERMIT.INIT":?D$;"WRITE KERMIT.INIT"
  81. 740RETURN
  82. 750IFRTHENGOSUB730:?"SET KEYBOARD 2E":GOSUB720
  83. 760RETURN
  84. RUN
  85. END
  86.